ADA Programming Guide/ADA Programming Guide.iso/ada_pcdp/adas/mesem.ada

Text File | 1996-01-30 | 584b | 36 lines

with Semaphore_Package; use Semaphore_Package;
with Text_IO; use Text_IO;
with Integer_Text_IO; use Integer_Text_IO;
procedure sem is
 m: constant integer := 10;
 n: integer := 0;
 s: semaphore := Init(1);

task incr1;
task body incr1 is
  i: integer;
begin
  for i in 1 .. m loop
    wait(s);
    n := n + 1;
    signal(s);
  end loop;
end incr1;

task incr2;
task body incr2 is
  i: integer;
begin
  for i in 1 .. m loop
    wait(s);
    n := n + 1;
    signal(s);
  end loop;
end incr2;

begin
  Put(" the sum is: ");
  Put(n);
  New_Line;
end;